home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_vdiinput.def < prev    next >
Text File  |  1988-04-26  |  3KB  |  113 lines
  1. DEFINITION MODULE VDIInputs;
  2.  
  3. FROM GEMVDIbase IMPORT MouseArrayType, SmallArrayType;
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7.  
  8. (* input functions *)
  9.  
  10. PROCEDURE SetInputMode (Handle, DevType, mode: INTEGER);
  11.  
  12. (* Set input mode *)
  13.  
  14.  
  15. PROCEDURE InputLocatorRQ (Handle, x, y: INTEGER;
  16.                           VAR xOut, yOut, term: INTEGER);
  17.  
  18. (* input locator, request mode *)
  19.  
  20.  
  21. PROCEDURE InputLocatorSM (Handle, x, y: INTEGER;
  22.                           VAR xOut, yOut, term: INTEGER): INTEGER;
  23.  
  24. (* input locator, sample mode *)
  25.  
  26.  
  27. PROCEDURE InputValuatorRQ (Handle, ValuatorIn: INTEGER;
  28.                            VAR ValuatorOut, Terminator: INTEGER);
  29.  
  30. (* input valuator, request mode *)
  31.  
  32.  
  33. PROCEDURE InputValuatorSM (Handle, ValIn: INTEGER;
  34.                            VAR ValOut, Term, Status: INTEGER);
  35.  
  36. (* input valuator, sample mode *)
  37.  
  38.  
  39. PROCEDURE InputChoiceRQ (Handle, ChIn: INTEGER; VAR ChOut: INTEGER);
  40.  
  41. (* input choice, request mode *)
  42.  
  43.  
  44. PROCEDURE InputChoiceSM (Handle: INTEGER; VAR choice: INTEGER): INTEGER;
  45.  
  46. (* input choice, sample mode *)
  47.  
  48.  
  49. PROCEDURE InputStringRQ (Handle, maxLength, EchoMode: INTEGER;
  50.                          VAR EchoXY: SmallArrayType;
  51.                          VAR String: ARRAY OF CHAR);
  52.  
  53. (* input string, request mode *)
  54.  
  55.  
  56. PROCEDURE InputStringSM (Handle, MaxLength, EchoMode: INTEGER;
  57.                          VAR EchoXY: SmallArrayType;
  58.                          VAR String: ARRAY OF CHAR): INTEGER;
  59.  
  60. (* input string, sample mode *)
  61.  
  62.  
  63. PROCEDURE SetMouseForm (Handle: INTEGER; PcurForm: MouseArrayType);
  64.  
  65. (* Set mouse form *)
  66.  
  67.  
  68. PROCEDURE ExchangeTimerV (Handle: INTEGER; TimAddr: ADDRESS;
  69.                           VAR OTimAddR: ADDRESS ; TimConv: INTEGER);
  70.  
  71. (* Exchange timer interrupt vector *)
  72.  
  73.  
  74. PROCEDURE ShowCursor (Handle, Reset: INTEGER);
  75.  
  76. (* show cursor *)
  77.  
  78.  
  79. PROCEDURE HideCursor (Handle: INTEGER);
  80.  
  81. (* Hide cursor *)
  82.  
  83.  
  84. PROCEDURE SampleMouseButton (Handle: INTEGER; VAR PStatus, x, y: INTEGER);
  85.  
  86. (* Sample mouse button state *)
  87.  
  88.  
  89. PROCEDURE ExchangeButtonV (Handle: INTEGER; pusrCode: ADDRESS ;
  90.                            VAR psavCode: ADDRESS);
  91.  
  92. (* Exchange button change vector *)
  93.  
  94.  
  95. PROCEDURE ExchangeMovementV (Handle: INTEGER; pusrCode: ADDRESS ;
  96.                              VAR psavCode: ADDRESS);
  97.  
  98. (* Exchange mouse movement vector *)
  99.  
  100.  
  101. PROCEDURE ExchangeCursorV (Handle: INTEGER; pusrCode: ADDRESS ;
  102.                            VAR psavCode: ADDRESS);
  103.  
  104. (* exchange cursor change vector *)
  105.  
  106.  
  107. PROCEDURE SampleKeyboard (Handle: INTEGER; VAR pstatus: INTEGER);
  108.  
  109. (* sample keyboard state information *)
  110.  
  111.  
  112. END VDIInputs.
  113.